home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / embedded / m68k / 68343ffp.arc / IEFATAN.SA < prev    next >
Text File  |  1989-08-30  |  3KB  |  68 lines
  1.          TTL       IEEE FORMAT EQUIVALENT ARCTANGENT (IEFATAN)
  2. ***************************************
  3. * (C) COPYRIGHT 1981 BY MOTOROLA INC. *
  4. ***************************************
  5.  
  6. *************************************************
  7. *                  IEFATAN                      *
  8. *     IEEE FORMAT EQUIVALENT ARCTANGENT         *
  9. *                                               *
  10. *  INPUT:   D7 - IEEE FORMAT ARGUMENT           *
  11. *                                               *
  12. *  OUTPUT:  D7 - IEEE FORMAT ARCTANGENT RADIAN  *
  13. *                RESULT                         *
  14. *                                               *
  15. *     ALL OTHER REGISTERS TOTALLY TRANSPARENT   *
  16. *                                               *
  17. *  CONDITION CODES:                             *
  18. *        Z - SET IF RESULT IS ZERO              *
  19. *        N - CLEARED                            *
  20. *        V - SET IF RESULT IS NAN (NOT-A-NUMBER)*
  21. *            (SET IF THE INPUT ARGUMENT WAS NAN)
  22. *        C - UNDEFINED                          *
  23. *        X - UNDEFINED                          *
  24. *                                               *
  25. *          ALL OTHER REGISTERS TRANSPARENT      *
  26. *                                               *
  27. *          MAXIMUM STACK USED:   54 BYTES       *
  28. *                                               *
  29. *                                               *
  30. *  NOTES:                                       *
  31. *    1) SEE THE MC68344 USER'S GUIDE FOR DETAILS*
  32. *       ON IEEE FORMAT RANGE LIMITATIONS.       *
  33. *    2) SPOT CHECKS SHOW AT LEAST SIX DIGIT     *
  34. *       PRECISION ON ALL SAMPLED CASES.         *
  35. *                                               *
  36. *************************************************
  37.          PAGE
  38. IEFATAN  IDNT  1,1 IEEE FORMAT EQUIVALENT ARCTANGENT
  39.  
  40.          OPT       PCS
  41.  
  42.          SECTION   9
  43.  
  44.          XDEF      IEFATAN                       ENTRY POINT
  45.  
  46.          XREF      9:FFPATAN                FAST FLOATING POINT ARCTANGENT
  47.          XREF      9:IEFSOP            FRONT-END SINGLE OPERAND CONVERT
  48.          XREF      9:IEFTIEEE          BACK-END RETURN IEEE FORMAT
  49.          XREF      9:FFPFIEEE          FFP TO IEEE CONVERT ROUTINE
  50.          XREF      FFPCPYRT            COPYRIGHT STUB
  51.  
  52. ********************
  53. * ARCTANGENT ENTRY *
  54. ********************
  55.  
  56. * SAVE REGISTERS AND CONVERT ARGUMENT
  57. IEFATAN  BSR       IEFSOP    CONVERT THE SINGLE ARGUMENT
  58.          BRA.S     IEFNRM    +0 BRANCH NORMALIZED
  59. * ARGUMENT WAS INFINITE                  +2 INFINITY
  60.          BSR       FFPFIEEE  CONVERT TO MAXIMUM VALUES ALLOWED IN FFP FORMAT
  61.  
  62. * ARGUMENT WAS NORMALIZED
  63. IEFNRM   BSR       FFPATAN   CALL FFP ARCTANGENT ROUTINE
  64.          BRA       IEFTIEEE  RETURN IN IEEE FORMAT
  65.  
  66.          END
  67.  
  68.